﻿Imports Sistema_InformacionNaviera.BC
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNavier.UTIL


Public Class Correctores_Principal

    'Inherits System.Web.UI.Page
    Inherits PaginaBase

    Sub Cambiarpagina(ByVal sender As Object, ByVal e As GridViewPageEventArgs)

        Dim objBlImpoBE As New BillOfLadingImpoBE
        Dim lstBlImpoBE As New List(Of BillOfLadingImpoBE)
        Dim objUtil As New Funciones
        Dim objBlImpoBC As New BillOfLadingImpoBC
        'objBlImpoBE.KVJE = If(txtNave.Text = String.Empty, 0, CType(txtNave.Text, Integer))
        'objBlImpoBE.Ptoo = txtNroBl.Text.Trim
        'objBlImpoBE.Nume = txtCodPto.Text.Trim
        'objBlImpoBE.Bli_Flag = Session("FlagBL")

        'Dim dt As DataTable = Nothing
        'Dim sMensaje As String = ""

        'lstBlImpoBE = objBlImpoBC.ListarBlImpo(objBlImpoBE, dt, sMensaje)
        'dgListadoCorrectores.PageIndex = e.NewPageIndex
        'dgListadoCorrectores.DataSource = lstBlImpoBE
        'dgListadoCorrectores.DataBind()


    End Sub


    Protected Sub btnGeneral_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGeneral.Click
        Response.Redirect("Correctores_Generales.aspx", True)
    End Sub

    Protected Sub btnMercaderia_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnMercaderia.Click
        Response.Redirect("Correctores_Mercaderia.aspx", True)
    End Sub

    Protected Sub btnFletes_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFletes.Click
        Response.Redirect("Correctores_Flete.aspx", True)
    End Sub

    Protected Sub btnContenedores_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnContenedores.Click
        Response.Redirect("Correctores_Contenedor.aspx", True)
    End Sub


    Protected Sub btnConsultar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsultar.Click

    End Sub
End Class